home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 426-450 / disk_445 / turbotext / rexx / numberlines.ttx < prev    next >
Text File  |  1992-05-06  |  953b  |  57 lines
  1.  
  2. /** $VER: NumberLines.ttx Demo 1.0 (26.12.90)
  3.  **
  4.  ** Add line numbers to selected lines, or to the whole document
  5.  **
  6.  ** Written by Martin Taillefer
  7.  **/
  8.  
  9.  
  10. OPTIONS RESULTS
  11.  
  12.  
  13.   GetBlkInfo
  14.   PARSE VAR RESULT selectMode dummy selLine .
  15.  
  16.   SetDisplayLock ON
  17.   SetBookmark 0
  18.   SetStatusBar TEMPORARY "Working..."
  19.  
  20.   IF selectMode = "ON" THEN DO
  21.     GetCursorPos
  22.     PARSE VAR RESULT curLine .
  23.     IF curLine > selLine THEN DO
  24.       temp    = curLine
  25.       curLine = selLine
  26.       selLine = temp
  27.       Move curLine
  28.     END
  29.  
  30.     pad = LENGTH(selLine-curLine)
  31.  
  32.     DO i = 1 TO (selLine - curLine)
  33.       MoveSOL
  34.       Text '"'Right(i,pad," ")||': "'
  35.       MoveDown
  36.     END
  37.  
  38.   END; ELSE DO
  39.     GetFileInfo
  40.     PARSE VAR RESULT numlines .
  41.     pad = LENGTH(numlines)
  42.  
  43.     MoveSOF
  44.  
  45.     i = 1
  46.     DO UNTIL RC ~= 0
  47.       MoveSOL
  48.       Text '"'Right(i,pad," ")||': "'
  49.       MoveDown
  50.       i = i + 1
  51.     END;
  52.   END
  53.  
  54.   MoveBookmark 0
  55.   SetDisplayLock OFF
  56.   UpdateView
  57.